work makAll play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All
HBAM2016AUG95
Pro 3.0
All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a goodCopyright 1984-1997 Claris Corporation
and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy.
bleasdale
passing
clouds
cabernet
shiraz@
taltarni
shiraz@
QUANTITY REMAINING
FaliA
HBAM3016AUG95
SCNFG
2STR
>vers
This copy will expire on ^0.
Other
1st Quarter
2nd Quarter
3rd Quarter
4th Quarter
Date CreatedB
Vintage IDB
VintageB
FOUND RECORD COUNT
QUANTITY REMAINING
MSPC@
alisA
FaliA
alisA
`RgSd]
7/28/98
BEST DRINKING FROM
BEST DRINKING SPAN
BEST DRINKING TO
BOTTLE SIZE
BSELECTED ENTRY
BTRUE
CELLAR LOCATION
CELLAR RECORD VALUE
CELLARING TIME
DATE CREATED
DATE OF PURCHASE
IMPORT CELLAR LOCATION
IMPORT CELLAR TIME
IMPORT DATE OF PURCHASE
IMPORT GUESS LABEL
IMPORT GUESS VARIETY
IMPORT GUESS WINERY
IMPORT PRESENT VALUE
IMPORT PURCHASE PRICE
IMPORT QTY CONSUMED
IMPORT QTY PURCHASED
IMPORT SUPPLIER
IMPORT WINE LOOKUP ID
IMPORT WINE NAME
IMPORT WINE STYLE
IMPORT WINE VINTAGE
IMPORT YEAR TO DRINK
PRESENT VALUE
PURCHASE PRICE
QUANTITY BOTTLES PURCHASED
QUANTITY CASES PURCHASED
QUANTITY CONSUMED
Print Summary (List)
Print Form
Startup
FormB
QUANTITY REMAINING
SCRIPT RESULT
SORT WINE NAME
SUPPLIER
TOTAL CELLAR VALUE
TOTAL REMAINING
VARIETY CHAR POS
VARIETY WORD COUNT
VIEW OLD WINE NAME
VINTAGE
VINTAGE ID
WINE ID
WINE NAME
WINE STYLE
WINERY NAME
WINERY WORD COUNT
X YEAR TO DRINK
Date CreatedB
Vintage IDB
VintageB
Cellar LocationB
Cellaring TimeB
x Year to drinkB
Date of PurchaseB
SupplierB
Purchase PriceB
Present ValueB
Quantity Bottles PurchasedB
Quantity ConsumedB
Quantity RemainingB
+ 12 *
InfoB
Winery NameB
A Wine Name
Wine IDB
bSelected EntryB
script resultB
Wine StyleB
Cellar Record ValueB
Total Cellar ValueB
import Wine NameB
view old Wine NameB
& " - " &
& " Style: " &
Style:
import Wine VintageB
import Wine StyleB
import Cellar LocationB
import Cellar Time
import Year to DrinkB
import Date of PurchaseB
import SupplierB
import Purchase PriceB
import Present ValueB
import Qty PurchasedB
import Qty ConsumedB
Import Wine Lookup IDB
& ":" &
Sort Wine NameB
bTrueB
Quantity Cases PurchasedB
Bottle SizeB
import guess WineryB
import guess LabelB
import guess VarietyB
tempB
winery word countB
variety char posB
variety word countB
Best Drinking SpanB
Best Drinking FromB
Best Drinking ToB
Total RemainingB
Found Record CountB
zw23q
Limited Releaseq
Print Summary (List)B
Date CreatedF
Vintage IDL
Vintage(
Date CreatedF
Vintage IDL
Vintage
Cellar LocationP
Cellaring TimeR
x Year to drinkT
Date of PurchaseV
SupplierX
Purchase PriceZ
Present Value\
Quantity Bottles Purchased^
Quantity Consumed`
Quantity Remainingb
Infod
Winery Namef
bSelected Entryh
script resultj
Wine Stylel
Wine IDn
import Wine Namer
import Wine Stylev
Import Wine Lookup IDx
Cellar Record Value|
bTrue
import vintage lookup ID
import wine lookupID
import Wine Name
import guess Winery
import guess Label
import guess Variety
Best Drinking Span
Print FormB
A Wine nameC
VintageD
Cellar locationK
Qty T
Page ##X
Total Cellar Value^
Value_
Cellar List
A Wine nameC
VintageD
Cellar locationK
Qty T
Page ##X
Total Cellar Value^
Value_
Cellar Listllar Listr List List
Total Bottles
StartupB
28/7/98K
mineO
2122U
urif_
1/1/93c
cellar doord
1998w
1998x
-2327B
24/7/98C
1/1/95K
cellarL
Morris Durif]
1992^
Durif_
1/1/95c
cellar doord
2000w
2000x
-2328B
24/7/98C
-5124G
1/1/95K
cellarL
Morris Durif]
1993^
Durif_
1/1/95c
cellar doord
2001w
2001x
-2329
FOUND RECORD COUNT
IMPORT CELLAR LOCATION
IMPORT CELLAR TIME
IMPORT DATE OF PURCHASE
IMPORT GUESS LABEL
IMPORT GUESS VARIETY
IMPORT GUESS WINERY
IMPORT PRESENT VALUE
IMPORT PURCHASE PRICE
IMPORT QTY CONSUMED
IMPORT QTY PURCHASED
IMPORT SUPPLIER
IMPORT WINE LOOKUP ID
IMPORT WINE NAME
IMPORT WINE STYLE
IMPORT WINE VINTAGE
IMPORT YEAR TO DRINK
PRESENT VALUE
PURCHASE PRICE
QUANTITY BOTTLES PURCHASED
QUANTITY CASES PURCHASED
QUANTITY CONSUMED
ABBD>> <<
AFAAABACABAC>>C
LocationE
Date of purchase:O
Qty consumed:Q
Qty remaining:S
Cellaring notesa
Cellaring time:c
Bottle size:e
Bottles purchased:g
Cases purchased:i
Price paid:k
Present value:m
Best drinking to:n
Best drinking from:p
Page ##q
Cellar Record
No. of bottles in cellar
Total cellar Value
No. of entries|
Supplier
Pro 3.0 - 4.0F!
Sunday
Monday
Tuesday
Wednesday
Thursday
Friday
Saturday
January
February
March
April
August
September
October
November
December
1st Quarter
2nd Quarter
3rd Quarter
4th Quarter
FMRLA
FMRLA
FMRLA
FMRLA
FMRLA
VintageC
WinesD
Import Wine LookupE
Import Vintage LookupH
Guess Winery
= 0
<> 0
= 0
XQCreate a new wine and vintage, split our wine name into 3 parts and assign it allY
@MSPC
FPTHA@4Tune:Jobs:Wine Guide:Wine Guide
98:Wine CD:Databases:Wines.WOR
MSPCA
NAMEA
Wines.WOR
RPTHA Wines.WOR
nes.WOR
0jFMP3FMP3
Databases
@4Tune:Jobs:Wine Guide:Wine Guide
98:Wine CD:Databases:Wines.fp3
Spice Girls
4Tune
John Cook
MSPCA
NAMEA
Wines.WOR
RPTHA Wines.WOR
CMSPC
FPTHAC4Tune:Jobs:Wine Guide:Wine Guide
98:Wine CD:Databases:Vintages.WOR
MSPCA
NAMEA
Vintages.WOR
RPTHA
Vintages.WOR
ges.WOR
0iFMP3FMP3
Databases
C4Tune:Jobs:Wine Guide:Wine Guide
98:Wine CD:Databases:Vintages.fp3
Spice Girls
4Tune
John Cook
MSPCA
NAMEA
Vintages.WOR
RPTHA
Vintages.WOR
Q3Look for existing wine & vintages and set their IDsRV
= 0
<> 0
The following steps fail with the Vintage:: relationship because Vintage ID is required for it to work. The new relationship is bound to have at least one match. V
= 0
ZQCreate a new wine and vintage, split our wine name into 3 parts and assign it all[
CMSPC
FPTHAC4Tune:Jobs:Wine Guide:Wine Guide
98:Wine CD:Databases:Vintages.WOR
MSPCA
NAMEA
Vintages.WOR
RPTHA
Vintages.WOR
ges.WOR
FMP3FMP3
Databases
C4Tune:Jobs:Wine Guide:Wine Guide
98:Wine CD:Databases:Vintages.fp3
Spice Girls
4Tune
John Cook
4Tune
MSPCA
NAMEA
Vintages.WOR
RPTHA
Vintages.WOR
) > 0
8EJNow copy all the fields, replacing auto-entered values, and stripping muckF
@MSPC
FPTHA@4Tune:Jobs:Wine Guide:Wine Guide
98:Wine CD:Databases:Wines.WOR
MSPCA
NAMEA
Wines.WOR
RPTHA Wines.WOR
nes.WOR
vFMP3FMP3
Databases
@4Tune:Jobs:Wine Guide:Wine Guide
98:Wine CD:Databases:Wines.fp3
Spice Girls
4Tune
John Cook
4Tune
MSPCA
NAMEA
Wines.WOR
RPTHA Wines.WOR
bleasdale
vintage
port@
coriole
shiraz@
estate@
passing
clouds
angel
blend@
penfolds@
water@
FaliA
alisA
1 + 1
0) -
MSPCA
NAMEA
Vintages.WOR
RPTHA
Vintages.WOR
FMP3FMP3
Databases
C4Tune:Jobs:Wine Guide:Wine Guide
98:Wine CD:Databases:Vintages.fp3
Spice Girls
4Tune
John Cook
4Tune
MSPCA
NAMEA
Vintages.WOR
RPTHA
Vintages.WOR
@MSPC
FPTHA@4Tune:Jobs:Wine Guide:Wine Guide
98:Wine CD:Databases:Wines.WOR
MSPCA
NAMEA
Wines.WOR
RPTHA Wines.WOR
nes.WOR
vFMP3FMP3
Databases
@4Tune:Jobs:Wine Guide:Wine Guide
98:Wine CD:Databases:Wines.fp3
Spice Girls
4Tune
John Cook
4Tune
MSPCA
NAMEA
Wines.WOR
RPTHA Wines.WOR
2Go to Cellar Item in Vintage DB, returning ordinal
Select All
Select by Chosen Wine Name
New User Cellar Item
0Delete Cellar Item by Vintage::Chosen Vintage ID
$x Print Cellar Item List (Found Set)
Print Cellar Item List (All)
$Print Cellar Items of Chosen Vintage
Import
98 Cellar
Print Mac - Browsed Records
Print Mac - Current Record
Print Win - Browsed Records
Print Win - Current Record
Print - Browsed Records
Print - Current Record
Reclassify Wine & Vintage
Split Wine Name
Import
98 Cellar Copy
A2Go to Cellar Item in Vintage DB, returning ordinal
Helvetica
Geneva
CMSPC
FPTHAC4Tune:Jobs:Wine Guide:Wine Guide
98:Wine CD:Databases:Vintages.WOR
ges.WOR
FaliFaliliFalili
Find all cellar items for the chosen vintage ID. Step through them all, returning the ordinal of the chosen Cellar ID within this set. Then go to the related Vintage record. B!
Select All
v _$HUOp
PHPHx
N^ _O
Select by Chosen Wine Name
v _$HUOp
PHPHx
N^ _O
xN^ _O
~\ON^.
IaWe must keep the selected set as the found set, for purposes of total cellar value calculations.
New User Cellar Item
A0Delete Cellar Item by Vintage::Chosen Vintage ID
A.Allow user to click delete in new empty portalB,
) >= 1
Import
98 Cellar
) > 0
8EJNow copy all the fields, replacing auto-entered values, and stripping muckF
8P3Look for existing wine & vintages and set their IDsQy
> 0
> 0
A$x Print Cellar Item List (Found Set)
@assign it allY
A$x Print Cellar Item List (Found Set)
A.Find all selected entries (bSelectedEntry = 1)
A$Print Cellar Items of Chosen Vintage
A.Print all items of Vintages::Chosen Vintage IDB!
) = 0
Cancel
There are no cellar items to print.
Print Mac - Browsed Records
Print Mac - Current Record
Print Win - Browsed Records
Apple LaserWriter Select 360
Print Win - Current Record
Print - Browsed Records
) = 1
Print - Current Record
) = 1
Print Cellar Item List (All)
A.Find all selected entries (bSelectedEntry = 1)
Reclassify Wine & Vintage
-4425
Apple LaserWriter Select 360
AEReassign Wine and Vintage IDs according to globals in the Vintages DBB#
) > 0
Split Wine Name
'AETry to match the winery name, starting with 4 words, then try 3, 2, 1B
1 = 0
<> 0
1 - 1
HGWe have found a winery name of 'count' words, or we haven't (count = 0)
Try to match the variety by locating known words. Look for less common words first (first 'SetField') - then see if any of our common variety words come earlier (other 'SetField's)